home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #1 / 1999 CD 1 (black).iso / K-CD.dxr / Maanedlig_102.ls < prev    next >
Encoding:
Text File  |  1998-11-20  |  331 b   |  16 lines
  1. global Musik, DXSeen
  2.  
  3. on mouseDown
  4.   puppetSound(3, "Knap")
  5. end
  6.  
  7. on mouseUp
  8.   set result to baReadRegString("software\microsoft\DirectX", "Version", EMPTY, "HKEY_LOCAL_MACHINE")
  9.   if not (result contains "6.00") then
  10.     set DXSeen to 1
  11.     go("S2Chicken")
  12.   else
  13.     baRunProgram("Railroad\Setupex.exe", "normal", 0)
  14.   end if
  15. end
  16.